home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / a / a_funk / packet1.tos / MAILBOX / ST / LABELS.BAS next >
Encoding:
BASIC Source File  |  1986-02-06  |  3.4 KB  |  89 lines
  1. 10    ' LABELS.BAS created on 16 November 1985 by Wm. A. Van Nest
  2. 20    '
  3. 30    closew 0:closew 1:closew 3
  4. 40    START: fullw 2: clearw 2: Atari$=Chr$(14)+Chr$(15)
  5. 50    CLEAR
  6. 60    title$=" Van's Label Maker for Epson RX/FX series printers "
  7. 70    title$=chr$(32)+chr$(14)+chr$(15)+title$
  8. 80    title$=title$+chr$(14)+chr$(15)+chr$(32)
  9. 90    poke systab+24,1 : ' Don't need to see this...
  10. 100   a# = gb : ' Fetch globals address
  11. 110   gintin = peek(a#+8) : ' AES int_in array
  12. 120   poke gintin+0,peek(systab+8) : ' OUTPUT window handle
  13. 130   poke gintin+2,2 : ' we're changing it's name
  14. 140   s# = gintin+4 : ' DBL address for long poke
  15. 150   title$ = title$ + chr$(0) : ' assure zero terminator
  16. 160   poke s#,varptr(title$) : ' title of new window
  17. 170   gemsys(105) : ' wind_set AES call
  18. 180   poke systab+24,0 : ' Turn things back on
  19. 190   p$(1) = "Reset printer to default state"
  20. 200   p$(2) = "Printer in BOLD face type"
  21. 210   p$(3) = "Printer in Condensed mode"
  22. 220   p$(4) = "Printer in Enlarged mode"
  23. 230   p$(5) = "Printer in Italics mode"
  24. 240   p$(6) = "Printer in Elite mode"
  25. 250   clearw 2: gotoxy 0,0: print
  26. 260   ? "          A - Enter label    B - Print labels    C - Exit to TOS":?
  27. 270   ? "             Print modes in RED are active and may be combined.":?
  28. 280   for x = 1 to 6
  29. 290   if P(x) = 0 then color 1,0,1 else color 2,0,1
  30. 300   print X; "   ";p$(x);
  31. 310   if x/2 = int(x/2) then ? else ? tab(40);
  32. 320   next x
  33. 330   color 1,0,1: print
  34. 340   print tab(30);"Current label:": PRINT
  35. 350   for x = 1 to 5
  36. 360   print tab(5);x;"  ";l$(x)
  37. 370   next x
  38. 380   gotoxy 20,17: ? "Enter selection:  ";: s$ = input$ (1)
  39. 390   if s$="C" or s$="c" then 850
  40. 400   if s$="A" or s$="a" then 560
  41. 410   if s$="B" or s$="b" then 640
  42. 420   if s$<"1" or s$>"6" then 380
  43. 430   s=val(s$)
  44. 440   p(s) = p(s) xor 1
  45. 450   if s<>1 then p(1) = 0: goto 480
  46. 460   for x=2 to 6: p(x)=0: next x: p(1)=1
  47. 470   lprint chr$(27);"@";
  48. 480   if s=2 then if p(s)=1 then lprint chr$(27);"E"; else lprint chr$(27);"F";
  49. 490   if s=3 then if p(s)=1 then lprint chr$(15); else lprint chr$(18);
  50. 500   if s<>4 then 530
  51. 510   if p(s)=1 then lprint chr$(27);"W";chr$(1);
  52. 520   if p(s)=0 then lprint chr$(27);"W";chr$(0);
  53. 530   if s=5 then if p(s)=1 then lprint chr$(27);"4"; else lprint chr$(27);"5";
  54. 540   if s=6 then if p(s)=1 then lprint chr$(27);"M"; else lprint chr$(27);"P";
  55. 550   goto 250
  56. 560   clearw 2: gotoxy 0,0: print
  57. 570   print "Input each of 5 lines.  Edit BEFORE pressing [Return]!"
  58. 580   print
  59. 590   for x=1 to 5
  60. 600   print x;"  ";
  61. 610   line input l$(x)
  62. 620   next x
  63. 630   goto 250
  64. 640   clearw 2:gotoxy 0,0:print
  65. 650   print "Printing alignment label..."
  66. 660   gosub 800
  67. 670   gotoxy 0,5:?"Is that OK?  (Y or N please):  ";
  68. 680   z$=input$ (1)
  69. 690   if z$="Y" or z$="y" then 720
  70. 700   if z$="N" or z$="n" then 640
  71. 710   goto 670
  72. 720   gotoxy 0,7:?"How many labels should I print (0 to end):  ";
  73. 730   input c:if c=0 then 250
  74. 740   gotoxy 0,10:?"Printing label number:"
  75. 750   for x=1 to c
  76. 760   gotoxy 25,10:?x
  77. 770   gosub 800
  78. 780   next x
  79. 790   goto 250
  80. 800   for i=1 to 5
  81. 810   lprint l$(i)
  82. 820   next i
  83. 830   lprint
  84. 840   return
  85. 850   clearw 2:gotoxy 0,0:color 2,0,1
  86. 860   print "Type 'QUIT' to return to GEM Desktop"
  87. 865   color 1,0,1
  88. 870   end
  89. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə